home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / MANTRA.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  1.3 KB  |  43 lines
  1. Mantra:Start
  2.   New (Counter)
  3.   Msg:Add("Mantra")
  4.     This next sample programs will display some windows &
  5.     and get some keyboard entry.  One of my pet projects &
  6.     is making computers say Mantras, and idea proposed by &
  7.     Edsger Dijkstra many years ago.
  8.  
  9.     Tibetan Buddhists use mechanical prayer &
  10.     wheels to pray more quickly and efficiently. &
  11.     Japanese Buddhists of the Amida sect believe &
  12.     that anyone who says "Amida" with pure &
  13.     heart will go to heaven, so they say it as many times as possible &
  14.     in hopes of forgetting and saying it with pure heart once in their lives.
  15.  
  16.     This Mantra system combines these ideas just in case they &
  17.     may be right.  Who can have purer heart than a &
  18.     computer?  If you run a Mantra system often, perhaps &
  19.     your computer will also forget and therefore insure your place in heaven.
  20.   While (Kbd:Hit==False)
  21.     While (Counter < 40 And Kbd:Hit==False)
  22.       Mantra:Show(Here)
  23.       ++Counter
  24.     While (Counter > 0 And Kbd:Hit==False)
  25.       Win:Del
  26.       --Counter
  27.   Kbd:Bye
  28.   Return
  29.  
  30. Mantra:Show (Level)
  31.   New (Row,Col)
  32.   Row = Num:Rand(2,10)
  33.   Col = Num:Rand(2,60)
  34.   Win:Add ("Om",Row,Col,0,0,Level)
  35.     Am I a butterfly that
  36.     dreams I am a computer?
  37.  
  38.     Or am I a computer that
  39.     dreams I am a Butterfly?
  40.   Return(Ok)
  41.  
  42.  
  43.